From 8e2ff3ff426ff8c10a958fd7301f92aa2e920a3e Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Wed, 9 Oct 2002 15:18:25 +0000 Subject: [PATCH] (Custom-reset-current): Don't test for default-boundp. (Custom-reset-saved): Don't test for saved-value. --- lisp/cus-edit.el | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 99152e85dbf..58fd8b16ba9 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -675,22 +675,20 @@ when the action is chosen.") (interactive) (let ((children custom-options)) (mapc (lambda (widget) - (and (default-boundp (widget-value widget)) - (if (memq (widget-get widget :custom-state) - '(modified changed)) - (widget-apply widget :custom-reset-current)))) - children))) + (if (memq (widget-get widget :custom-state) + '(modified changed)) + (widget-apply widget :custom-reset-current))) + children))) (defun Custom-reset-saved (&rest ignore) "Reset all modified or set group members to their saved value." (interactive) (let ((children custom-options)) (mapc (lambda (widget) - (and (get (widget-value widget) 'saved-value) - (if (memq (widget-get widget :custom-state) - '(modified set changed rogue)) - (widget-apply widget :custom-reset-saved)))) - children))) + (if (memq (widget-get widget :custom-state) + '(modified set changed rogue)) + (widget-apply widget :custom-reset-saved))) + children))) (defun Custom-reset-standard (&rest ignore) "Erase all customization (either current or saved) for the group members. -- 2.30.2